home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VESCAPES.S < prev    next >
Text File  |  1993-03-16  |  3KB  |  126 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5.  
  6. ;*************************************************************************
  7. ;*
  8. ;* Escape functions 1.
  9. ;*    This random collection is all in one module because if you use any
  10. ;*    one of these functions the overhead of having them all linked in is
  11. ;*    only about 50 bytes.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;*------------------------------------------------------------------------
  16. ;*-----------------------------------------------------------------------
  17. ;* vesc_honly
  18. ;*    For VDI escape calls that use a handle only.
  19. ;*    Entry:    d0.w = VDI function number.
  20. ;*-----------------------------------------------------------------------
  21. ;*------------------------------------------------------------------------
  22.  
  23. vesc_honly:
  24. ;    .cargs    #8,handle.w
  25.  
  26. handle      =         8
  27.  
  28.           link        a6,#-2
  29.  
  30. ;          VContrl    #5,d0
  31.           move.w    handle(a6),-(sp)    ; contrl[6]
  32.           move.w    d0,-(sp)            ; contrl[5]
  33.           subq.l    #2,sp                ; contrl[4]
  34.           clr.l     -(sp)                ; contrl[3,2]
  35.           clr.w     -(sp)                ; contrl[1]
  36.           move.w    #5,-(sp)            ; contrl[0]
  37.  
  38.           subq.l    #4,sp                ;* -> ptsout
  39.           pea        -2(a6)                ;* -> intout (most don't use this)
  40.           subq.l    #8,sp                ;* -> ptsin, intin
  41.           pea        16(sp)                ;* -> contrl
  42.  
  43.           jmp        vdicall
  44.  
  45. ;*------------------------------------------------------------------------
  46. ;* Escape functions using just the vdi handle...
  47. ;*------------------------------------------------------------------------
  48.  
  49.           globl     _v_exit_cur
  50. _v_exit_cur:
  51.           ;* Exit alpha/cursor mode.
  52.           moveq.l    #2,d0
  53.           bra        vesc_honly
  54.           globl     _v_enter_cur
  55. _v_enter_cur:
  56.           ;* Enter alpha/cursor mode.
  57.           moveq.l    #3,d0
  58.           bra        vesc_honly
  59.           globl     _v_curup
  60. _v_curup: ;* Alpha cursor up.
  61.           moveq.l    #4,d0
  62.           bra        vesc_honly
  63.           globl     _v_curdown
  64. _v_curdown:
  65.           ;* Alpha cursor down.
  66.           moveq.l    #5,d0
  67.           bra        vesc_honly
  68.           globl     _v_curright
  69. _v_curright:
  70.           ;* Alpha cursor right.
  71.           moveq.l    #6,d0
  72.           bra        vesc_honly
  73.           globl     _v_curleft
  74. _v_curleft:
  75.           ;* Alpha cursor left.
  76.           moveq.l    #7,d0
  77.           bra        vesc_honly
  78.           globl     _v_curhome
  79. _v_curhome:
  80.           ;* Alpha cursor home.
  81.           moveq.l    #8,d0
  82.           bra        vesc_honly
  83.           globl     _v_eeos
  84. _v_eeos:  ;* Erase to end of screen (alpha mode).
  85.           moveq.l    #9,d0
  86.           bra        vesc_honly
  87.           globl     _v_eeol
  88. _v_eeol:  ;* Erase to end of line (alpha mode).
  89.           moveq.l    #10,d0
  90.           bra        vesc_honly
  91.           globl     _v_rvon
  92. _v_rvon:  ;* Alpha reverse video on.
  93.           moveq.l    #13,d0
  94.           bra        vesc_honly
  95.           globl     _v_rvoff
  96. _v_rvoff: ;* Alpha reverse video off.
  97.           moveq.l    #14,d0
  98.           bra        vesc_honly
  99.           globl     _vq_tabstatus
  100. _vq_tabstatus:
  101.           ;* Inquire tablet status.
  102.           moveq.l    #16,d0
  103.           bra        vesc_honly
  104.           globl     _v_hardcopy
  105. _v_hardcopy:
  106.           ;* Output hardcopy.
  107.           moveq.l    #17,d0
  108.           bra        vesc_honly
  109.           globl     _v_rmcur
  110. _v_rmcur: ;* Remove last graphic cursor.
  111.           moveq.l    #19,d0
  112.           bra        vesc_honly
  113.           globl     _v_form_adv
  114. _v_form_adv:
  115.           ;* Form advance.
  116.           moveq.l    #20,d0
  117.           bra        vesc_honly
  118.           globl     _v_clear_disp_list
  119. _v_clear_disp_list:
  120.           ;* Clear display list.
  121.           moveq.l    #22,d0
  122.           bra        vesc_honly
  123.  
  124. ;*    end of code
  125.  
  126.